#!/usr/bin/perl -w
use strict;
### print all the regex_scans
my $command = 'mysql zebraphish -e "SELECT db_id, species, DATE(finish_time), regex FROM regex_scan ORDER BY db_id"';

chomp(my @lines = `$command`);
foreach my $line (@lines) { print "$line\n"; }
